home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / games.arc / GRAPH10C.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  768 b   |  25 lines
  1. 10  '**********************************
  2. 20  '**         GRAPH10C             **
  3. 30  '**********************************
  4. 40  SCREEN 2:KEY OFF:CLS:DIM A(31,31)
  5. 50  DEFINT X,Y,Q
  6. 60  FOR Y = -15 TO 15
  7. 70  FOR X = -15 TO 15
  8. 80  IF ABS(X) = ABS(Y) THEN 110
  9. 90  F = X*Y*(X^2+Y^2)/(X^2-Y^2)
  10. 100  A(X+16,Y+16)=F
  11. 110  NEXT X
  12. 120  NEXT Y
  13. 130  FOR X = 1 TO 31 : FOR Y = 1 TO 31
  14. 140  VALUE = A(X,Y)
  15. 150  XPOS = (X*10) + 50 + (Y*5)
  16. 160  YPOS = (Y*4) + 30 + VALUE/100
  17. 170  IF Y = 1 THEN LINE (XPOS,YPOS)-(XPOS,YPOS) ELSE LINE -(XPOS,YPOS)
  18. 180  NEXT Y,X
  19. 230  FOR Y = 1 TO 31 : FOR X = 1 TO 31
  20. 240  VALUE = A(X,Y)
  21. 250  XPOS = (X*10) + 50 + (Y*5)
  22. 260  YPOS = (Y*4) + 30 + VALUE/100
  23. 270  IF X = 1 THEN LINE (XPOS,YPOS)-(XPOS,YPOS) ELSE LINE -(XPOS,YPOS)
  24. 280  NEXT X,Y
  25.